mainxiangverify.asp ASP 在线订购程序 - ASP源码程序

www.gusucode.com > ASP 在线订购程序 > ASP 在线订购程序\code\admin\mainxiangverify.asp
    
<!--#include file="../conn.asp"-->
<!--#include file="login_admin.asp"-->
<title>管理中心</title>
<meta http-equiv="Content-Type" content="text/html; charstget=gb2312">
<link rel="stylesheet" type="text/css" href="css/style.css">
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" height="20%" border="0" cellpadding="0" cellspacing="0">
  <tr> 
    <td height="32" bgcolor="#F2F2F2">· <a href=""><b></b></a>首页&gt;&gt;订单管理</td>
  </tr>
  <tr> 
    <td height="64"> 
      <% 
dim rstg
dim shouhuoren1
dim verify1
shouhuoren1=Request.QueryString("id")
verify1=Request.QueryString("verify1")
set rstg=server.createobject("adodb.recordset")             
thesql = "select * from order111 where shouhuoren='"&shouhuoren1&"'"
rstg.open thesql ,conn,1,3
rstg("verify")="审核"
rstg.update

%>
    </td>
  </tr>
  <tr> 
    <td height="81" valign="top"> <table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td> <table width="100%" border="0" cellpadding="0" cellspacing="0">
              <tr> 
                <td width="100%" height="390" bgcolor="#FFFFFF"> 
                  
                </td>
              </tr>
            </table>
            <%

rstg.close 
set rstg=nothing
conn.close
set conn=nothing
response.write "<Script>window.alert('审核成功！');javascript:history.back(1);</Script>"
%>
          </td>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td height="2"></td>
  </tr>
</table>